home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)G / (A)G10.ADF / BasicTimers / NinetySec (.txt) next >
AmigaBASIC Source Code  |  1989-03-16  |  618b  |  25 lines
  1. CLS    'Q90  timer
  2. st:
  3. PRINT 
  4. PRINT  "Time","5sec","1 min","PulsePerSec.","Average Whole Run"
  5. PRINT TIME$
  6. strt:
  7. J$ =  RIGHT$ (TIME$,1)
  8. IF J$ = "0" OR J$ = "5" THEN cn
  9. GOTO strt
  10. cn:
  11. PRINT TIME$
  12.    FOR t = 1 TO 18  '18 = 90 seconds   
  13. FOR d = 1 TO 3100
  14. b=b-STRIG(2)
  15. NEXT d
  16. v = b/5 : cn = cn + 1 : vv = vv + v
  17. x = vv/cn :
  18. PRINT TIME$,b,b*12"SPM",b/5 "Hz", x
  19. m=m+b
  20. b = 0
  21.    NEXT t  
  22. PRINT "   Average this 90 seconds ="(m/90) * 60"SPM",m/90 "Hz"
  23. m=0: GOTO st
  24.  
  25.